home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)computerfest sept94.d64 / mtv64 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  757b  |  17 lines
  1. 11 PRINT"[147]* PROGRAMMED BY STEVE GUIDI"
  2. 12 PRINT"* ON SEPTEMBER 13TH, 1993"
  3. 14 PRINT"* SPRITES BY AN UNKNOWN AUTHOR"
  4. 100 A=PEEK(53281):POKE53280,(A-240):IFA=240THEN120
  5. 110 POKE53287,0:POKE53288,0:GOTO130
  6. 120 POKE53287,15:POKE53288,15
  7. 130 POKE53269,3:POKE2040,132:POKE2041,133
  8. 140 FORN=0TO62:READQ:POKE8448+N,Q:NEXT:FORN=0TO62:READQ:POKE8512+N,Q:NEXT
  9. 150 POKE53248,65:POKE53264,3
  10. 160 FORM1=0TO50:POKE53249,M1:NEXTM1:POKE53251,50:FORM2=0TO48:POKE53250,M2:NEXTM2
  11. 170 DATA79,252,0,152,10,0,96,234,28,7,234,124,63,10,240,59,115,192,3,119,128,155
  12. 180 DATA183,0,107,190,0,27,190,0,75,186,0,75,138,0,75,10,0,72,10,0,143,252,0,0,0
  13. 190 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,167,0,128,76,0,128,48,0,128,0,0
  14. 200 DATA128,0,0,128,0,0,128,0,0,128,204,0,128,180,0,128,140,0,128,164,0,128,164
  15. 210 DATA0,128,164,0,128,164,0,255,199,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  16. 300 NEW
  17.